﻿
Imports System.IO

Public Class noscript
    Inherits xhtmlControl

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.common(key)
    End Function

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff, "noscript")
    End Sub
End Class

Public Class script
    Inherits xhtmlControl

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.charset(key) OrElse _
                attributesCollection.defer(key) OrElse _
                attributesCollection.id(key) OrElse _
                attributesCollection.src(key) OrElse _
                attributesCollection.type(key)
    End Function

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff, "script")
    End Sub
End Class